home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / REVERSE DEMO 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  851b  |  19 lines
  1. 10  HOME :D$ =  CHR$(4):REVERSE = 864
  2. 20  PRINT D$"BLOAD REVERSE HI-RES.OBJ0"
  3. 30  PRINT D$"BLOAD SPACEPIC,A$2000"
  4. 40 BEG = 8192:EN = 16383:DEST = 16384: GOSUB 10000: REM  MOVE PICTURE TO PAGE 2
  5. 50  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  6. 60  POKE 230,64: CALL REVERSE,0,0,39,191: POKE 230,32
  7. 70  INPUT A
  8. 80  FOR I = 1 TO A
  9. 90  POKE  -16299,0: REM  TURN ON PAGE 2
  10. 100  FOR J = 1 TO 15: NEXT : REM  DELAY A SHORT WHILE
  11. 110  POKE  -16300,0: REM  TURN ON PAGE 1
  12. 120  FOR J = 1 TO 30: NEXT : REM  DELAY SOME MORE
  13. 130  NEXT 
  14. 140  GOTO 70
  15. 10000  POKE 938,216: POKE 939,160: POKE 940,0: POKE 941,76: POKE 942,44: POKE 943,254
  16. 10010  POKE 60,BEG - INT(BEG/256) *256: POKE 61, INT(BEG/256)
  17. 10020  POKE 62,EN - INT(EN/256) *256: POKE 63, INT(EN/256)
  18. 10030  POKE 66,DEST - INT(DEST/256) *256: POKE 67, INT(DEST/256)
  19. 10040  CALL 938: RETURN